home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
tri-2.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
702b
|
24 lines
10 PRINT "GIVEN THREE SIDES OF A TRIANGLE"
20 PRINT "FIND THE THREE ANGLES AND THE AREA"
30 INPUT "ENTER SIDE (S1)"; S1
40 INPUT "ENTER SIDE (S2)"; S2
50 INPUT "ENTER SIDE (S3)"; S3
60 P=(S1+S2+S3)/2
70 B=(((P*(P-S2))/(S1*S3)))^.5
80 Z=57.296
90 A3=2*Z*(-ATN(B/SQR(-B*B+1))+1.5708)
100 C=(((P*(P-S1))/(S2*S3)))^.5
110 A2=2*Z*(-ATN(C/SQR(-C*C+1))+1.5708)
115 A1=180-A2-A3
120 D=.5*(S1*S3*SIN(A3/Z))
130 PRINT
140 PRINT " ***ANSWERS***
150 PRINT
160 PRINT A1 " ANGLE (A1)"
170 PRINT A2 " ANGLE (A2)"
180 PRINT A3 " ANGLE (A3)"
190 PRINT S1 " SIDE (S1)"
200 PRINT S2 " SIDE (S2)"
210 PRINT S3 " SIDE (S3)"
220 PRINT D " AREA OF TRIANGLE"